home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / oopwin.exe / lha / OOPWIN.PAS < prev    next >
Pascal/Delphi Source File  |  1989-07-08  |  836b  |  37 lines
  1. program OOPWin;
  2.  
  3. uses TPCRT,
  4.     TPDOS,
  5.     ColorDef,
  6.     TPEdit,
  7.     TPString,
  8.     OWWind,        { Unit containing window object }
  9.     OWVars;        { Unit containing Global Variables, types & constants }
  10.  
  11. var
  12.     OW:         OOPWindow;
  13.     FindFile:    String;
  14.     Escaped:    Boolean;
  15.  
  16. begin
  17.     OW.Init(5, 6, 18, 20,
  18.             GreenOnBlue, WhiteOnBlue, WhiteOnBlue,
  19.             'OOPFILE.VAR');    { initialize the array }
  20.     OW.ShowWindow;    { Show the Keep Window }
  21.     repeat
  22.         ForceUpper := true;
  23.         ReadString('Enter Search Name:',24,1,sizeof(FileStr),
  24.                     WhiteOnBlue, YellowOnBlue, YellowOnBlue,
  25.                     Escaped, FindFile);
  26.         if (not escaped) then
  27.             if OW.wildSearch(FindFile) then
  28.                 fastwrite(pad(findFile,13)+'Found    ',23,1,RedOnLtGray)
  29.             else
  30.                 fastwrite(pad(findFile,13)+'Not found',23,1,GreenOnLtGray)
  31.     until escaped;
  32.     OW.Done;    { Remove the Array }
  33. end.
  34.  
  35.  
  36.  
  37.